library(tidyverse)
library(DeclareDesign)
library(rdss)

source("code/declarations/declaration_13.2.R")

sims <- 2000
bootstrap_sims <- 2000

diagnosis_13.1 <- diagnose_design(declaration_13.2, sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_13.1, file = "diagnosis_objects/diagnosis_13.1.rds")